home *** CD-ROM | disk | FTP | other *** search
/ Sound Effects for Multimedia 2 / Sound Effects for Multimedia - Volume 2.7z / Sound Effects for Multimedia - Volume 2.bin / mac / Sound Companion Demos / Sound Companion Jr Demo / SETUP.RUL < prev   
Text File  |  1998-10-23  |  5KB  |  214 lines
  1. // Ishield script file for Sound Companion Jr. by Jeff Patterson
  2. // 6/24/95 modified 9/9/97
  3.  
  4. declare
  5.     
  6.     
  7.     string szText [ 255 ];
  8.     string szDisk [3];
  9.     string szTemp [255]; 
  10.     string szDefPath [255];
  11.     string szBitmapPath [255];
  12.     string szResultPath [255]; 
  13.     string szResultPathX [255];
  14.     string szNotepadPath [255]; 
  15.     string szProgramPath [255]; 
  16.     string szLicensePath [255]; 
  17.     string szWorkingPath [255];
  18.     string szReadme [255]; 
  19.     string szQtPath [255];
  20.     string szIconPath [ 255 ];
  21.     string szFileName [255];
  22.     string szPathFile [ 255 ];
  23.     number nspace;
  24.     number ntemp;
  25.     number listID;
  26.     number nTextMaxLines;
  27.     number nFontPointSize;
  28.     number nStatusWindowID;
  29.     number nCheck;
  30.     number SPACE_NEEDED;
  31.  
  32.  
  33. program
  34. anyword:
  35.     SetColor ( STATUSBAR, RED );
  36.  
  37.     // Blue Gradiant from top to bottom
  38.     SetColor (      BACKGROUND, 
  39.             QUAD( BK_RESET, 0, 0, 0 ) );
  40.     SetColor (      BACKGROUND,
  41.             QUAD( BK_VERT_TOP, 0, 0, 255 ) );
  42.     SetColor (      BACKGROUND,
  43.             QUAD( BK_VERT_BOTTOM, 0, 0, 50 ) );
  44.     SetColor (      BACKGROUND,
  45.             QUAD( BK_COMPLETE, 0, 0, 0 ) );
  46.  
  47.     SPACE_NEEDED = 1452102;
  48.     SetFont (FONT_TITLE, STYLE_NORMAL, "System" );
  49.     SetTitle ("Sound Companion Jr. Demo Installation Program", 24, BLACK );
  50.  
  51.     // MS look routine
  52.         nTextMaxLines = 3;
  53.         nFontPointSize = 9;
  54.         nStatusWindowID = StatusCreate( STYLE_DEFAULT ,
  55.                         nTextMaxLines ,
  56.                         "System" ,
  57.                         nFontPointSize ,
  58.                         STYLE_NORMAL );
  59.         StatusSelect( nStatusWindowID );
  60.  
  61.     //Enable ( BITMAPFADE );
  62.     Enable ( EXIT );
  63.     Disable ( HELP );
  64.     Disable ( PAUSE );
  65.     Disable ( INFO );
  66.     Enable ( FEEDBACK_OPERATION );
  67.     Enable ( STATUS );
  68.     Enable ( BACKGROUND );
  69.  
  70.     GetDisk( TARGETDIR, szDisk );
  71.     szDefPath = szDisk ^ "Sound_Jr";
  72.  
  73.     SetStatusWindow ( 10, "Installing Sound Companion Jr. Demo" );
  74.  
  75. TargetLocation:
  76.  
  77.     AskPath ( "Please enter the desired location for Sound Companion Jr?", szDefPath, szResultPath );  
  78.  
  79.     if LAST_RESULT = 0 then call ConfirmCancel; 
  80.     endif;
  81.  
  82.     if szResultPath = SRCDIR then 
  83.         MessageBox ( "The target location must be different than the installation source.  Please specify a different location.", SEVERE );
  84.         goto TargetLocation;
  85.     endif;
  86.  
  87.     CreateDir( szResultPath );
  88.  
  89.     if LAST_RESULT = 0 then goto DirCreated; 
  90.     endif;
  91.  
  92.     MessageBox ( "Unable to create directory.  Please enter a valid path", SEVERE );
  93.     goto TargetLocation;
  94.  
  95.  
  96. DirCreated:
  97.  
  98.     GetDiskSpace ( szResultPath );
  99.  
  100.     if LAST_RESULT < SPACE_NEEDED then
  101.         MessageBox ( "Not enough space on the hard drive specified.  1.5 megabytes of free hard disk space are needed.  Please make more room or try another drive.", SEVERE );
  102.         goto TargetLocation;
  103.     endif;
  104.  
  105.     SetStatusWindow ( 10, "Ready to copy files." );
  106.     TARGETDIR = szResultPath;
  107.      
  108.     SetStatusWindow ( 15, "Installing Sound Companion Jr. files ..." );
  109.  
  110.  
  111.     // Copy files from cd
  112.     //CopyFile ( "FILEIO.DLL", "FILEIO.DLL" );
  113.     CopyFile ( "A.A", "SCJrDemo.exe" );
  114.  
  115.     SetStatusWindow ( 35, "Installing Sound Companion files ..." );    
  116.     CopyFile ( "B.B", "ALRIGHT.WAV" );
  117.  
  118.     SetStatusWindow ( 45, "Installing Sound Companionfiles ..." );    
  119.     CopyFile ( "C.C", "HELLO.WAV");
  120.  
  121.     SetStatusWindow ( 55, "Installing Sound Companion files ..." );    
  122.     CopyFile ( "D.D", "MUSIC.WAV" );
  123.  
  124.     SetStatusWindow ( 65, "Installing Sound Companion files ..." );    
  125.     CopyFile ( "E.E", "CATALOG.RTF" );
  126.  
  127.     SetStatusWindow ( 65, "Installing Sound Companion files ..." );    
  128.     CopyFile ( "F.F", "ORDER.RTF" );
  129.     
  130.     SetStatusWindow ( 75, "Installing Sound Companion files ..." );    
  131.     CopyFile ( "SCJunior.ico", "SCJunior.ico" );
  132.  
  133. // make files hidden
  134.         // Use List of Files to make hidden
  135.  
  136.     // Create file list
  137.         listID = ListCreate( STRINGLIST );
  138.  
  139.         if ( listID = LIST_NULL ) then
  140.             MessageBox( "List not created, fatal error", SEVERE );
  141.         endif;
  142.  
  143.     // Add elements to file list
  144.         ListAddString ( listID, "SCJunior.ico", AFTER );
  145.     
  146.     //set files in list to hidden
  147.     
  148.         nCheck = ListGetFirstString(    listID,
  149.                         szFileName );
  150.         while ( nCheck = 0 )                    
  151.             szPathFile = szResultPath ^ szFileName;
  152.             SetFileInfo(    szPathFile,
  153.                     FILE_ATTRIBUTE,
  154.                     FILE_ATTR_HIDDEN, 
  155.                     "" );
  156.             nCheck = ListGetNextString (    listID, 
  157.                             szFileName );
  158.         endwhile;
  159.  
  160.     //clears list
  161.         ListDestroy ( listID );
  162.  
  163.  
  164.     
  165.         SetStatusWindow ( 85, "Finished coying files..." );
  166.  
  167.  
  168.     SetStatusWindow ( 90, "Creating Program Group..." );
  169.  
  170.  
  171.  
  172.     szProgramPath = TARGETDIR ^ "SCJrDemo.EXE";
  173.     szWorkingPath = TARGETDIR;
  174.     szIconPath    = TARGETDIR ^ "SCJunior.ico";
  175.  
  176.  
  177.                
  178.                
  179.     AddProgItemEx("Sound Companion",
  180.                "Sound Companion Junior Demo",
  181.                szProgramPath,
  182.                szWorkingPath,
  183.                szIconPath,
  184.                0,
  185.                "",
  186.                0 );               
  187.                
  188.                
  189.                
  190.                
  191.         SetStatusWindow ( 100, "Done installing files ..." );
  192.  
  193. //AskYesNo ( "Installation is complete.  Would you like to read the End User License //Agreement?", YES );
  194. //if LAST_RESULT = NO then exit;
  195. //endif;
  196.  
  197. //szLicensePath = TARGETDIR ^ "License.TXT";
  198. //szNotepadPath = TARGETDIR ^ "NOTEPAD.EXE";
  199.  
  200. //LaunchApp ( szNotepadPath , szLicensePath );
  201.  
  202.  
  203.  
  204. exit;
  205.  
  206.  
  207.  
  208.  
  209. ConfirmCancel:  
  210. AskYesNo ( "Are you sure you want to CANCEL installation?", NO );
  211.  
  212. if LAST_RESULT = NO then return; endif;
  213. exit;
  214.